www.gusucode.com > 婚庆仪礼策划公司网站系统源代码 梦紫色 > 婚庆仪礼策划公司网站系统源代码 梦紫色/Admin/backup.asp
<%@ Language="VBScript" %>
<%' Option Explicit %>
<!--#include file="conn.asp"-->
<!--#include file="check1.asp"-->
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>备份数据库</TITLE>
<style>
<!--
BODY
{
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
TD
{
FONT-SIZE: 9pt
}
A
{
COLOR: #000000;
TEXT-DECORATION: none
}
A:hover
{
COLOR: #9FA9B3;
TEXT-DECORATION: underline
}
.input
{
BORDER: #9FA9B3 1px solid;
FONT-SIZE: 9pt;
BACKGROUND-color: #E3E3E3}
.backs
{
BACKGROUND-COLOR: #E3E3E3;
COLOR: #ffffff;
}
.backq
{
BACKGROUND-COLOR: #E3E3E3
}
.backc
{
BACKGROUND-COLOR: #E3E3E3;
BORDER: medium none;
COLOR: #999999;
HEIGHT: 18px;
font-size: 9pt
}
.fonts
{
COLOR: #FFFFFF
}
.style1 {BACKGROUND-COLOR: #E3E3E3; color: #130700; }
-->
</STYLE>
</HEAD>
<BODY leftmargin="20">
<table width="98%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"> <div align="left" style="background-image: url('../Images/topbg1.gif')"><strong>备份数据库</strong></div>
<div align="left">
<%
if request("action")="Backup" then
call backupdata()
else
%>
</div></td>
</tr>
<tr>
<form method="post" action="backup.asp?action=Backup">
<td> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="2" height="333">
<tr>
<td height="25" class="tdbg"><strong>备份数据文件</strong>[<a href="asp.asp">需要FSO权限</a>]</td>
</tr>
<tr>
<td height="22" class="tdbg"> 当前数据库路径</td>
</tr>
<tr>
<td height="22" class="tdbg"><input type=text size=50 name=DBpath value="<%=db%>"></td>
</tr>
<tr>
<td height="22" class="tdbg"> 备份数据库目录[如目录不存在，程序将自动创建]</td>
</tr>
<tr>
<td height="22" class="tdbg"><input type=text size=50 name=bkfolder value=Databackup></td>
</tr>
<tr>
<td height="22" class="tdbg">备份数据库名称[如备份目录有该文件，将覆盖，如没有，将自动创建]</td>
</tr>
<tr>
<td height="22" class="tdbg"> <input type=text size=30 name=bkDBname value=backup.mdb></td>
</tr>
<tr>
<td height="22" class="tdbg"><div align="center">
<input name="submit" type=submit value="确定">
</div></td>
</tr>
<tr>
<td height="22" class="tdbg"><br> <br>
本程序的默认数据库文件为<%=db%><br>
您可以用这个功能来备份您的法规数据，以保证您的数据安全！<br>
注意：所有路径都是相对与程序空间根目录的相对路径</td>
</tr>
<tr>
<td height="47" class="tdbg"> </td>
</tr>
</table></td>
</form>
</tr>
</table>
<%end if%>
<%
sub backupdata()
Dbpath=request.form("Dbpath")
Dbpath=server.mappath(Dbpath)
bkfolder=request.form("bkfolder")
bkdbname=request.form("bkdbname")
Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
If CheckDir(bkfolder) = True Then
fso.copyfile dbpath,bkfolder& "\"& bkdbname
else
MakeNewsDir bkfolder
fso.copyfile dbpath,bkfolder& "\"& bkdbname
end if
response.write "备份数据库成功，您备份的数据库路径为" &bkfolder& "\"& bkdbname
Else
response.write "找不到您所需要备份的文件。"
End if
end sub
'------------------检查某一目录是否存在-------------------
Function CheckDir(FolderPath)
folderpath=Server.MapPath(".")&"\"&folderpath
Set fso1 = CreateObject("Scripting.FileSystemObject")
If fso1.FolderExists(FolderPath) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso1 = nothing
End Function
'-------------根据指定名称生成目录---------
Function MakeNewsDir(foldername)
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.CreateFolder(foldername)
MakeNewsDir = True
Set fso1 = nothing
End Function
%>
</td>
</tr>
</table>
</BODY>
</HTML>